Private Casting/Casting One.bin/Docs/Video.dir/00031.ls

Text File | 1998-02-21 | 502 b | 21 lines

on mouseEnter
  cursor([cast "curs", cast "mask"])
  puppetSprite(the currentSpriteNum, 1)
  set the castNum of sprite the currentSpriteNum to the number of member "rev2"
end

on mouseLeave
  cursor(-1)
  set the castNum of sprite the currentSpriteNum to the number of member "rev1"
end

on mouseUp
  cursor(-1)
  set the castNum of sprite the currentSpriteNum to the number of member "rev1"
  case the clickOn of
    3:
      set the movieRate of sprite 8 to 0
      go(1, "photobook")
  end case
end